10 REM ******************************** 20 REM FAHRSIMULATOR 30 REM ******************************** 100 REM TON VORBEREITEN 110 SI=54272:POKESI+24,15 120 POKESI+1,248:POKESI+8,6:POKESI+15,9 130 POKESI+5,154:POKESI+12,9:POKESI+19,9 200 CL=6:GOSUB6200 210 PRINTCHR$(142);CHR$(8) 220 PRINT"[147][158]","[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" 230 PRINT," FAHR - SIMULATOR " 270 GOSUB5000 300 IFPEEK(12800)=120THEN330 310 C=0:FORA=12800TO13229:READB:POKEA,B:C=C+B:NEXT 315 IFC<>49567THENPRINT"PRUEFSUMMENFEHLER!":STOP 320 FORA=704TO766:READB:POKEA,B:NEXT 330 POKE251,102:POKE883,8 340 PRINT:PRINT" WEITER ? "; 350 GOSUB6000 360 IFX$<>"J"ANDX$<>"Y"THEN350 400 CL=6:GOSUB6200 410 PRINT"[147][159] *** SCHWIERIGKEITSGRAD *** 420 [153]" TASTESYS FUER 430 PRINT" A[158] : ANFAENGER 440 [153]" BSYS : FORTGESCHRITTENE 450 PRINT" C[158] : LANGJAEHRIGE AUTOFAHRER 460 [153]" DSYS : PROFIS 470 PRINT" E[158] : SELBSTMOERDER 480 [153]"FAHRBAHNBREITE (A-E)SYS : "; 490 [141]6000:BR$[178]X$ 500 BR[178]70[171][198](X$):[139]BR[179]1[176]BR[177]5[167]490 510 [153]BR$ 520 : 530 [153]"GESCHWINDIGKEIT (A-E)SYS : "; 540 [141]6000:GE$[178]X$:[139]X$[178]"@"[167][141]6400:[137]530 550 GE[178]70[171][198](X$):[139]GE[179]1[176]GE[177]5[167]540 560 [153]GE$ 570 [151]252,BR[172]3[170]6:[151]253,GE[172]2.5 580 [129]A[178]1[164]800:[130] 600 [143] VORBEREITUNG 610 [153]"LOAD" 620 CR[178]0:SY[178][194](251):[151]881,3 630 [158]13094 640 [143] COUNTDOWN 650 [129]A[178]9[164]0[169][171]1 660 [153]"";A 670 [129]B[178]1[164]300:[130]:[130] 680 [153]" " 700 [143] START 710 [158]12800 720 [139][194](881)[178]255[167]1000:[143] IM ZIEL 730 [143] CRASH 740 CR[178]CR[170]1 750 [153]""[166]15)"*CRASH*ON 760 SI=54272 770 POKESI+4,129:POKESI+11,129:POKESI+18,129:REM TON 780 FORA=1TO10:POKE53294,4:B=1^1:POKE53294,1:NEXT 800 FORB=1TO10:PRINTSPC(15)"*CRASH*[145] 810 [129]A[178]1[164]120:[130] 820 [153][166]15)"*CRASH*ON 830 FORA=1TO120:NEXT:NEXT 840 PRINTSPC(15)" [158]" 850 POKESI+4,0:POKESI+11,0:POKESI+18,0 860 IFPEEK(197)=46THENGOTO400 870 : 880 X=PEEK(870)+5+BR*1.5 890 POKE53262,X*8AND255 900 POKE53264,-(X*8>255)*128 910 FORA=1TO2000:NEXT 920 GOTO700 930 : 1000 REM SPIELENDE 1010 PRINT""," SPIEL BEENDET " 1020 FORA=1TO1500:NEXT 1100 REM AUSWERTUNG 1110 POKE53269,0 1120 PRINT"[147]","[164][164][164][164][164][164][164][164][164][164][164]" 1130 PRINT," RESULTAT: " 1140 IFCRTHENCL=7:GOSUB6220 1150 IFCR>15THENPRINT"[150]"; 1200 PRINT" FAHRBAHNBREITE : ";BR$ 1210 PRINT" GESCHWINDIGKEIT: ";GE$ 1220 PRINT" CRASHES :";CR 1250 P=INT((7-GE)^4*(7-BR)^3/2^CR)*100 1260 IFCR>15THENP=0 1270 IFP>5E5THENCL=5:GOSUB6200 1280 PRINT"";P;"PUNKTE." 1310 FORA=1TO1000:NEXT 1320 IFP=0THENPRINT" TROTZDEM"; 1330 PRINT" NOCH EINMAL ? "; 1340 GOSUB6000 1350 IFX$="N"THENPOKE54296,0:CL=6:GOSUB6200:PRINT:END 1360 IFX$<>"J"ANDX$<>"Y"THEN1340 1370 CL=6:GOSUB6200:GOTO400 1380 : 5000 REM ANLEITUNG 5060 PRINT" VERSUCHEN SIE IHR FAHRZEUG 5080 [153]" UNFALLFREI BIS ZUM ZIEL ZU STEUERN. 5100 PRINT" MIT DEN BEIDEN CRSR[146]-TASTEN KOENNEN 5120 [153]" SIE NACH LINKS ODER RECHTS LENKEN. 5170 PRINT" [150]CRASHES ERGEBEN MINUSPUNKTE ![158] 5180 [142] 6000 [143] GET-RdINE 6010 [151]53269,0 6020 [161]X$:[161]X$ 6030 [129]A[178]1[164]4 6040 [153][202]("(null)TAN(null)PEEK",A,1);"CMD"; 6050 [161]X$ 6060 [139]X$[179][177]""[167][153]" CMD";:[142] 6070 B[178]1[174]1[174]1 6080 [130]:[137]6030 6200 [143] FARBE SETZEN 6210 [151]53281,CL 6220 [151]53281,CL 6230 [142] 6400 [143] FAHRBAHNd AKTER UND -SYMBOL 6410 [153]"LOAD CHARAKTER (1-9) ? "; 6420 [141]6000:X[178][197](X$):[139]X[178]0[167]6420 6430 [153]X$:[151]883,(X[171]1)[172]10 6450 [153]" SYMBOL ? "; 6460 [141]6000 6470 [139]X$[178]""[167][153]X$;:[137]6460 6480 [139]X$[178][199](13)[167][153]:[142] 6490 [153]X$:SY[178][194](1274) 6500 [139]SY[178]32[176]SY[178]96[167]6450 6510 [151]251,SY 6520 [129]A[178]1[164]500:[130]:[142] 6530 : 8000 [143] MASCHINENPROGRAMM 8010 [131]120,169,245,141,24,208,32,119,50,169,21,141,24,208,173,31,208,32,116 8020 [131]50,14,31,208,176,40,32,67,50,14,31,208,176,32,32,243,50,32,67,50,32 8030 [131]230,50,14,31,208,176,18,32,230,50,14,31,208,176,10,206,112,3,208,197 8040 [131]206,113,3,16,192,88,96,162,0,142,0,220,174,14,208,173,1,220 8050 [131]201,127,240,15,201,251,208,23,138,24,105,2,144,14,110,16,208 8060 [131]208,9,138,56,233,2,176,3,14,16,208,141,14,208,162,127,142,0 8070 [131]220,96,0,162,60,44,162,4,134,101,232,232,232,134,98,134,100,160 8080 [131]152,132,97,160,192,132,99,169,32,160,39,145,99,136,16,251,162,24,24 8090 [131]169,32,188,80,3,145,97,200,145,97,165,251,145,99,136,145,99,152,101 8100 [131]252,168,169,32,145,97,200,145,97,165,251,145,99,136,145,99,202,56,165 8110 [131]97,233,40,133,97,176,3,198,98,56,165,99,233,40,133,99,176,199,198 8120 [131]100,165,100,197,101,176,191,201,59,208,11,162,24,189,80,3,157,81 8130 [131]3,202,16,247,96,164,253,162,0,202,208,253,136,208,250,76,67,50,174 8140 [131]80,3,240,21,232,236,114,3,202,176,14,173,115,3,205,4,220,176,6,36 8150 [131]88,48,13,16,5,44,4,220,80,6,232,236,114,3,144,3,202,48,247,138,56 8160 [131]237,80,3,142,80,3,133,88,96,169,0,133,88,234,141,112,3,169,13,162 8170 [131]24,157,80,3,202,16,250,165,252,201,22,144,4,169,20,133,252,169,39 8180 [131]56,229,252,141,114,3,165,252,74,24,105,15,10,10,10,141,14,208,162 8190 [131]0,169,1,157,0,216,157,0,217,157,0,218,157,0,219,169,32,157,0,60,157 8200 [131]0,61,157,0,62,157,0,63,202,208,225,169,216,141,15,208,162,0,142,16 8210 [131]208,142,23,208,142,27,208,142,28,208,142,29,208,142,21,208,160,11 8220 [131]140,255,7,140,255,63,160,1,140,46,208,32,119,50,32,116,50,162,128 8230 [131]142,21,208,162,0,142,31,208,96 8240 : 8400 [143] SPRITE 8410 [131]0,0,0,0,60,0,0,60,0,0,126,0,6,126,96,6,126,96,7,255,224,6,126,96,6,126 8420 [131]96,0,255,0,0,255,0,0,255,0,1,255,128,1,255,128,29,255,184,29,255,184 8430 [131]31,255,248,29,255,184,29,255,184,0,255,0,0,126,0